Holt Researcher: American History/Holt Researcher: American History.iso/pc/modules/search.dxr/00113.ls

Text File | 2000-01-18 | 727 b | 30 lines

on tellloc startsprite, endSprite
  if voidp(endSprite) then
    endSprite = startsprite
  end if
  repeat with rc = startsprite to endSprite
    if the memberNum of sprite rc = 0 then
      put "•• Blank"
      next repeat
    end if
    put rc, member(the memberNum of sprite rc).name, the loc of sprite rc
  end repeat
end

on tellrect startsprite, endSprite
  if voidp(endSprite) then
    endSprite = startsprite
  end if
  repeat with rc = startsprite to endSprite
    if the memberNum of sprite rc = 0 then
      put "•• Blank"
      next repeat
    end if
    put rc, member(the memberNum of sprite rc).name, the rect of sprite rc
  end repeat
end

on Jat p1, p2, p3, p4, p5, p6
  put p1, p2, p3, p4, p5, p6
end